object CreditorInfo: TCreditorInfo
  Left = 358
  Top = 232
  ActiveControl = EditName
  BorderStyle = bsDialog
  Caption = 'Dialog'
  ClientHeight = 235
  ClientWidth = 512
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  KeyPreview = True
  Position = poScreenCenter
  PrintScale = poPrintToFit
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object LabelName: TLabel
    Left = 35
    Top = 35
    Width = 81
    Height = 13
    Caption = 'Creditor Name'
    FocusControl = EditName
    OnClick = LabelNameClick
  end
  object LabelApr: TLabel
    Left = 35
    Top = 71
    Width = 140
    Height = 13
    Caption = 'Annual Percentage Rate'
    OnClick = LabelAprClick
  end
  object LabelBal: TLabel
    Left = 35
    Top = 107
    Width = 92
    Height = 13
    Caption = 'Current Balance'
    FocusControl = EditBal
    OnClick = LabelBalClick
  end
  object LabelPmt: TLabel
    Left = 35
    Top = 143
    Width = 97
    Height = 13
    Caption = 'Monthly Payment'
    FocusControl = EditPmt
    OnClick = LabelPmtClick
  end
  object LabelCap: TLabel
    Left = 35
    Top = 179
    Width = 101
    Height = 13
    Caption = 'Minimum Payment'
    FocusControl = EditCap
    OnClick = LabelCapClick
  end
  object Bevel1: TBevel
    Left = 12
    Top = 16
    Width = 339
    Height = 2
    Shape = bsTopLine
  end
  object Bevel2: TBevel
    Left = 12
    Top = 216
    Width = 339
    Height = 2
    Shape = bsBottomLine
  end
  object Bevel3: TBevel
    Left = 11
    Top = 18
    Width = 2
    Height = 198
    Shape = bsLeftLine
  end
  object Bevel4: TBevel
    Left = 350
    Top = 19
    Width = 2
    Height = 198
    Shape = bsRightLine
  end
  object OKBtn: TBitBtn
    Left = 416
    Top = 101
    Width = 77
    Height = 27
    Caption = 'OK'
    ModalResult = 1
    TabOrder = 6
    TabStop = False
    OnClick = OKBtnClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333377F3333333333000033334224333333333333
      337337F3333333330000333422224333333333333733337F3333333300003342
      222224333333333373333337F3333333000034222A22224333333337F337F333
      7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224
      33333337F73337F337F33333000033A33333A222433333337333337F337F3333
      0000333333333A222433333333333337F337F33300003333333333A222433333
      333333337F337F33000033333333333A222433333333333337F337F300003333
      33333333A222433333333333337F337F00003333333333333A22433333333333
      3337F37F000033333333333333A223333333333333337F730000333333333333
      333A333333333333333337330000333333333333333333333333333333333333
      0000}
    Margin = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 416
    Top = 146
    Width = 77
    Height = 27
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 7
    TabStop = False
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333000033337733333333333333333F333333333333
      0000333911733333973333333377F333333F3333000033391117333911733333
      37F37F333F77F33300003339111173911117333337F337F3F7337F3300003333
      911117111117333337F3337F733337F3000033333911111111733333337F3337
      3333F7330000333333911111173333333337F333333F73330000333333311111
      7333333333337F3333373333000033333339111173333333333337F333733333
      00003333339111117333333333333733337F3333000033333911171117333333
      33337333337F333300003333911173911173333333373337F337F33300003333
      9117333911173333337F33737F337F33000033333913333391113333337FF733
      37F337F300003333333333333919333333377333337FFF730000333333333333
      3333333333333333333777330000333333333333333333333333333333333333
      0000}
    Margin = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 416
    Top = 190
    Width = 77
    Height = 27
    Caption = 'Help'
    TabOrder = 8
    TabStop = False
    OnClick = HelpBtnClick
    Kind = bkHelp
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object EditName: TEdit
    Left = 195
    Top = 31
    Width = 121
    Height = 21
    Hint = 'Enter the creditor name'
    MaxLength = 12
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnChange = EditNameChange
    OnExit = EditNameExit
    OnKeyPress = EditNameKeyPress
  end
  object EditBal: TEdit
    Left = 195
    Top = 103
    Width = 121
    Height = 21
    Hint = 'Enter the balance owed'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnExit = EditBalExit
    OnKeyPress = EditBalKeyPress
  end
  object EditPmt: TEdit
    Left = 195
    Top = 139
    Width = 121
    Height = 21
    Hint = 'Enter the amount due'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnExit = EditPmtExit
    OnKeyPress = EditPmtKeyPress
  end
  object EditCap: TEdit
    Left = 195
    Top = 175
    Width = 121
    Height = 21
    Hint = 'Enter the minimum pmt (see help for explaination)'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    Text = '15.00'
    OnExit = EditCapExit
    OnKeyPress = EditCapKeyPress
  end
  object EditApr: TEdit
    Left = 195
    Top = 67
    Width = 121
    Height = 21
    Hint = 'Enter the annual percentage rate'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnChange = EditAprChange
    OnExit = EditAprExit
    OnKeyPress = EditAprKeyPress
  end
  object EntryRadioBtn: TRadioGroup
    Left = 371
    Top = 12
    Width = 122
    Height = 64
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ItemIndex = 0
    Items.Strings = (
      'Credit Card'
      'Loan/Mortgage')
    ParentColor = False
    ParentFont = False
    TabOrder = 5
    OnClick = EntryRadioBtnClick
  end
end